valeu mauro .... obrigado amnha aguardarei obrigado pela sua pacienciencia e sua dedicaçao obrigado

Gonçalo, segue o modelo.

Algumas obs:

Para testar a funcionalidade, como eu deixei o caminho definido na rotina, no meu PC, tenho uma Pasta exclusiva para cada forum, então o seu arquivo ficou em :
E:PlanilhandoGoncalo, e as Imagens em :
E:PlanilhandoGoncaloImagens - Criei uma Pasta só para as Imagens.

Então se em sue PC não tiver a Letra "E", apesar que em seu modelo voc~E fazzia referencia a esta letra, altere na rotina.
Se tiver a letra, descompacte o arquivo no Drive "E", ficando conforme a figura abaixo:

Procurei deixar as rotinas comentadas, acreddito que não terá difficuldade em adaptar, então ao Digitar a Referencia e clicar em Procurar, é colocado a Imagem associada no Formulário, se não existir uma imagem associada, receberá uma msg e no ofrm terá a figura expecifica "Imageem não Disponivel", o Botão "Adicionar Imagem", abre a caixa de dialogo para selecionar uma, o caminho tamebm já esta definido na rotina, e por fim, o Botão "Salvar a Imagem", salva a nova Imagem com o Nome que se encontra em "txtRef".

Faça os testes e qualquer Bug ou duvida retorne.

Depois criarei um modelo reduzido para colocar no Forum Biblioteca.

abraços

eh mauro brigado pela sua dedicaçao e trabalho , mas a a adapatar a rotina esta-me dando um erro
Dim lÁreaTransferência As Long

'Define o local para salvar a Figura
'Altere para o seu caminho
PicPath = "F:PlanilhandoGoncaloImagens"

'Atribui a Variavel o Caminho e Nome da Figura
ffname = PicPath & txtRef & ".jpg"
OpenClipboard 0
EmptyClipboard

'Coloca a Imagem na Area de Transferencia
lÁreaTransferência = SetClipboardData(2, Fichas.Image_Produto.Picture.Handle)

CloseClipboard

If lÁreaTransferência Then
'Salva a Figura
SavePicture Image_Produto.Picture, ffname

MsgBox "Imagem salva em " & ffname & " com sucesso!" _
, vbInformation _
, "Informação"
End If

'Limpa a área de Transferencia
DestroyIcon Image_Produto.Picture.Handle

sabe o que pode ser ???

Gonçalo, ficaria mais fácil se colocasse qual o erro esta dando.

Agora, como está fazendo adaptação e alterou o Caminho, tenha certeza que existe a Letra "F" e as Pastas em seu PC ("F:PlanilhandoGoncaloImagens), lembrando, se reparou na figura, que o arquivo (Planilha) neste caso tem de estar em "F:Planilhando".

F:Planilhando = arquivo (Fichas versao Mauro.xlsm)
F:PlanilhandoGoncaloImagens = (As Figuras)

[]s

sim s eu sei mauro eu que a estava pondo as variaveis no ficheiro

mauro eu esqueci de um pormenor eu tenho que partilhar esta planilha na rede ... como eu faço para alterar o caminho em vez de ira para o disco ir buscar no servido ???

me desculpa

Gonçalo, tem de alterar o caminho conforme fez anteriormente para latra "F", mas a diferença é que você tem de saber o Caminho correto da Rede, que ddependendo do tipo de sua rede pode ter atribuições diferentes, e uma olhada nos tópico abaixo e veja se consegue definir, se pesquisar por Rede no Forum, encontrará outras formas.

Macro - Backup da planilha em REDE
viewtopic.php?f=16&t=2483&p=10824&hilit=rede#p10824

viewtopic.php?f=10&t=2783&p=12499&hilit=rede#p12499

ou ainda pode ser :
PicPath = "\192.168.0.151CaminhoPlanilhaNaRede"

[]s